The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
META.yml 22
Todo 07
TreeDumper.pm 54
3 files changed (This is a version diff) 713
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Data-TreeDumper
-version:            0.37
+version:            0.39
 abstract:           Improved replacement for Data::Dumper. Powerful filtering capability.
 author:
     - Khemir Nadim ibn Hamouda. <nadim@khemir.net>
@@ -21,7 +21,7 @@ no_index:
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.54
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4
@@ -1,5 +1,10 @@
 [12:03] <kent\n> nadim: $("ul").click(function(){ $(this).find("li").show() });  # theres a start
 
+options to show addresses and links only when references exist
+	needs two passes
+	could filter the output with a s/// to avoid two passes
+
+DTD::Flare instead for jquery
 
 the filter is called three times, it could be cached
 	search for $filter_sub->
@@ -10,6 +15,8 @@ DTD::Diff
 	show only diff + some (settable) context
 	DHTML rendered that synchronizes collapse between trees
 
+Add example usind Data::DPath
+
 color by type
 sort by type
 #filter by type done in D::TD::Utils
@@ -14,7 +14,7 @@ our %EXPORT_TAGS = ('all' => [ qw() ]) ;
 our @EXPORT_OK = ( @{$EXPORT_TAGS{'all'} } ) ;
 our @EXPORT = qw(DumpTree PrintTree DumpTrees CreateChainingFilter);
 
-our $VERSION = '0.37' ;
+our $VERSION = '0.39' ;
 
 my $WIN32_CONSOLE ;
 
@@ -1286,9 +1286,7 @@ for(ref $element)
 	if($setup->{DISPLAY_OBJECT_TYPE})
 		{
 		my $class = ref($element) ;
-		my $has_autoload ;
-		eval "\$has_autoload = *${class}::AUTOLOAD{CODE} ;" ;
-		$has_autoload = $has_autoload ? '[AL]' : '' ;
+		my $has_autoloadd = $class->can("AUTOLOAD") ? '[AL]' : '' ;
 		
 		$element_type .= " blessed in '$has_autoload$class'" ;
 		
@@ -2454,6 +2452,7 @@ B<Data::TreeDumper> on this track. Check B<Data::TreeDumper::Renderer::DHTML>.
 to setup the document (ex:: html header).
 
 =over 4
+
 my ($title, $type_address, $element, $size, $perl_address, $setup) = @_ ;
 
 =item 1 $title
@@ -2718,7 +2717,7 @@ Khemir Nadim ibn Hamouda. <nadim@khemir.net>
 
 Thanks to Ed Avis for showing interest and pushing me to re-write the documentation.
 
-  Copyright (c) 2003-2006 Nadim Ibn Hamouda el Khemir. All rights
+  Copyright (c) 2003-2010 Nadim Ibn Hamouda el Khemir. All rights
   reserved.  This program is free software; you can redis-
   tribute it and/or modify it under the same terms as Perl
   itself.